home *** CD-ROM | disk | FTP | other *** search
- object MsgViewDlg: TMsgViewDlg
- Left = 200
- Top = 108
- BorderStyle = bsDialog
- Caption = 'TmsCustomMessage Viewer'
- ClientHeight = 354
- ClientWidth = 514
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 514
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 32
- Height = 13
- Caption = 'From:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 8
- Top = 40
- Width = 48
- Height = 13
- Caption = 'Subject:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 8
- Top = 24
- Width = 32
- Height = 13
- Caption = 'Date:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object FromLabel: TLabel
- Left = 80
- Top = 8
- Width = 49
- Height = 13
- Caption = 'FromLabel'
- end
- object DateLabel: TLabel
- Left = 80
- Top = 24
- Width = 49
- Height = 13
- Caption = 'DateLabel'
- end
- object SubjectLabel: TLabel
- Left = 80
- Top = 40
- Width = 62
- Height = 13
- Caption = 'SubjectLabel'
- end
- end
- object AttListView: TListView
- Left = 0
- Top = 284
- Width = 514
- Height = 70
- Align = alBottom
- OnDblClick = AttListViewDblClick
- Columns = <>
- ReadOnly = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- LargeImages = ImageList1
- end
- object BodyMemo: TMemo
- Left = 0
- Top = 65
- Width = 514
- Height = 219
- Align = alClient
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object ImageList1: TImageList
- Height = 32
- Width = 32
- Left = 400
- Top = 8
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 464
- Top = 248
- object Execute1: TMenuItem
- Caption = '&Execute'
- ShortCut = 0
- OnClick = AttListViewDblClick
- end
- object Save1: TMenuItem
- Caption = '&Save'
- ShortCut = 0
- OnClick = Save1Click
- end
- end
- object SaveDialog1: TSaveDialog
- FileEditStyle = fsEdit
- Filter = 'All Files (*.*)|*.*'
- Left = 424
- Top = 248
- end
- end
-